www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\other-b\D_index_load_kernel.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<%
dir_set="../"
%>
<!--#include file=../inc/conn.asp-->
<!--#include file=inc/checkadmin1.asp-->
<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<LINK href="css2.css" type=text/css rel=stylesheet>
<SCRIPT type=text/javascript>
<!--
var ie5 = (document.all && document.getElementsByTagName);
var step = 0;
function setSB(v, el, inforEl, message) {
if (ie5 || document.readyState == "complete") {
filterEl = el.children[0];
valueEl = el.children[1];
if (filterEl.style.pixelWidth > 0) {
var filterBackup = filterEl.style.filter;
filterEl.style.filter = "";
filterEl.style.filter = filterBackup;
}
filterEl.style.width = v + "%";
valueEl.innerText = v + "%";
inforEl.innerText = message;
}
}
function setSBByStep(v, el, inforEl, message) {
if (ie5 || document.readyState == "complete") {
step = step + v;
filterEl = el.children[0];
valueEl = el.children[1];
if (filterEl.style.pixelWidth > 0) {
var filterBackup = filterEl.style.filter;
filterEl.style.filter = "";
filterEl.style.filter = filterBackup;
}
filterEl.style.width = step + "%";
valueEl.innerText = step + "%"
inforEl.innerText = message;
}
}
function fakeProgress(v, el) {
if (ie5){
if (v >= 101)
v=1;
//location.href="make_html_all_Progress_show.asp";
//else {
setSB(v, el, infor, " power by 阮 丁 远");
window.setTimeout("fakeProgress(" + (v + 3) + ", document.all['" + el.id + "'])", 90);
//}
}
}
//-->
</SCRIPT>
<body bgcolor="#000000" onload="fakeProgress(0,sb)" marginheight="0" marginwidth="0" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">
<table width="100%" height="504" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" bgcolor="#000000"><img src="IMG/N_load_pic.gif" width="640" height="480" /></td>
</tr>
</table>
<!-- Status Bar Starts -->
<div align=center>
<DIV id=sb
style="BORDER-RIGHT: white 0px inset; BORDER-TOP: white 0px inset; BACKGROUND: #cccccc; BORDER-LEFT: white 0px inset; WIDTH: 120px; BORDER-BOTTOM: white 0px inset; HEIGHT: 10px; TEXT-ALIGN: left;position:absolute; left:440px;top:365px">
<DIV id=sbChild1
style="FILTER: Alpha(Opacity=0, FinishOpacity=80, Style=1, StartX=0, StartY=0, FinishX=100, FinishY=0); WIDTH: 0%; POSITION: absolute; HEIGHT: 20px">
<DIV
style="FONT-SIZE: 1px;BACKGROUND:#ffffff; WIDTH: 100%; HEIGHT: 100%"></DIV></DIV>
<DIV
style="FONT-SIZE:11px; WIDTH: 100%; COLOR:#000000; FONT-FAMILY:verdana; POSITION: absolute; TEXT-ALIGN: center"></DIV></DIV>
<!-- Status Bar Ends -->
<br>
<DIV id=infor
style=" FONT-SIZE:11px; WIDTH: 100%; COLOR:#000000; FONT-FAMILY:verdana; POSITION: relative; TEXT-ALIGN: center">
</DIV>
</div>
<DIV id="loading_msg" style="position:absolute; z-index:200; top:410px; left:354px; background-color:#ffffff; width: 306px; height: 22px;" >
请稍后......</div>
<!--#include file=../inc/Functionb.asp-->
<script type="text/javascript" src="../inc/zxml.js"></script>
<!--#include file=../inc/ajaxLIB_no_loader.asp-->
<%
' 检测组件变量
dim isobj,VerObj,TestObj
session("ok_hhhv")=""
'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议
IsObj = True
VerObj = TestObj.version
if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
set TestObj=nothing
End sub
ObjTest(fssoo_nd_var_str_x_customx)
if not isobj then
sss1="检测中:对不起，由于你的系统不支持FSO组件,所以无法使用本后台"
%>
<script language="javascript">
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300);
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
</script>
<%
response.end
else
sss1="检测中:支持FSO......"
%>
<script language="javascript">
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0);
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要更新的标签列表....</font>';",800);
var okeeee=0;
var needdo=1;
var w ;
var a=AJAXcreateXMLdocument();
a.onreadystatechange=function(){
if (a.readyState==4)
{
if (a.parseError.errorCode!=0){
alert("数据读取错误,请重试!!(请务必先关闭 所有数据库软件如ACCESS再刷新本页)");
}
var root=a.documentElement;
var staut=root.firstChild.text;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要更新的自定义标签列表成功......"+"</font>';",1500);
okeeee=1;
sys_label_get();
}
}
a.async=true; //异步模式
a.load("adminLabel/D_ajax_update_custom_label_list_to_mdb_from_files.asp");
setTimeout("err_timeout();",60000);
function err_timeout(){
if (okeeee==0){
alert("请再等待下，或者你可能打开了数据库软件ACCESS等,请先关闭它,再刷新本页,或者数据库已锁定,无法进入后台!");
}
}
var myl=new Array();
myl[0]="p"+"o"+"w"+"e"+"r"+"b";
myl[1]="y"+" ";
myl[2]="R"+"u"+"a"+"n";
myl[3]="D"+"i"+"n"+"g";
myl[4]="Y"+"u"+"a"+"n";
myl[4]=" ,"+"ji"+"_yi:"+"w";
myl[5]="u"+"h"+"u"+"a";
myl[6]="n"+"x"+"i"+"a"+"-198";
myl[7]="41109";
myllen=8;
function sys_label_get(){
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要更新的系统标签列表....</font>';",800);
var a=AJAXcreateXMLdocument();
a.onreadystatechange=function(){
if (a.readyState==4)
{
if (a.parseError.errorCode!=0){
alert("数据读取错误,请重试!!");
}
var root=a.documentElement;
var staut=root.firstChild.text;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要更新的系统标签列表成功......"+"</font>';",1500);
var lyly="";
for(var iii=0;iii<=myllen-1;iii++){lyly=lyly+myl[iii];}
var video_delay_time=100;
<%if session("m"&"ylm"&"ylm"&"yl")="w"&"h"&"x" then%>
video_delay_time=1700;
<%end if%>
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+lyly+"</font>';",1800);
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"......"+"</font>';",1800+video_delay_time);
<%if session("m"&"yl"&"m"&"yl"&"m"&"yl")="w"&"h"&"x" then%>
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+lyly+"</font>';",1800+video_delay_time);
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"......"+"</font>';",1800+video_delay_time+video_delay_time);
<%end if%>
//循环延时，防止卡住:
w = setInterval("do_kernel()",40);
}
}
a.async=true; //异步模式
a.load("adminLabel/D_ajax_update_sys_label_list_to_mdb_from_files.asp");
}
var ended=0;
var pos="";
var msg1="";
var a2=AJAXcreateXMLdocument();
a2.onreadystatechange=function(){
if (a2.readyState==4)
{
if (a2.parseError.errorCode!=0){
alert("数据读取错误,请重试!!");
}
var root=a2.documentElement;
var ss1=root.firstChild.text;
var ss2=root.childNodes[1].text;
var ss3=root.childNodes[2].text;
if (ss1==1){ended=1;}
pos=ss2;
msg1=ss3;
needdo=1;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在更新>> "+msg1+"......"+"</font>';",1500);
if (ended==0){
}
else
{
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"更新标签完成......"+"</font>';",1500);
setTimeout("top.location='D_admin_index_select.asp';",4000);
}
}
}
function do_kernel(){
if (needdo==1&&ended==0){
needdo=0;
a2.async=true; //异步模式
a2.load("adminLabel/D_ajax_update_label_to_mdb_from_files_by_step.asp?pos="+pos);
}
}
</script>
<%
end if
%>
</body>
</html>